﻿Public Class Hauptform
    Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
        Nachricht.Text = ListBox1.Text & " - Nachrichtenfenster"
        Nachricht.UnterhaltungMitLabel.Text = "Unterhaltung mit " & ListBox1.Text
        Nachricht.Show()
    End Sub

    Private Sub EinloggenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EinloggenToolStripMenuItem.Click
        Loginform.Show()
    End Sub
End Class
